use strict;
use warnings;

use Parser::HorarioTransol;

sub ler_arquivo {
	my $arquivo = shift;
	open(ARQUIVO, "<$arquivo");
	print $arquivo ."\n";
	my $dados = "";
	while (<ARQUIVO>) {
		$dados = $dados . $_;
	}
	close(ARQUIVO);
	return $dados;
}

sub ler_arquivos_de_horarios {
	my @horarios = <baixados/*.html>;
	foreach my $arquivo (@horarios) {
		parsearHorario(ler_arquivo($arquivo));		
	}
}

ler_arquivos_de_horarios();